unit untCadastroPadrao;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ExtCtrls, StdCtrls, Mask, FMTBcd, DB, SqlExpr;

type
  TfrmCadastroPadrao = class(TForm)
    pnlbotton: TPanel;
    btnGravar: TSpeedButton;
    btnSair: TSpeedButton;
    sdsComando: TSQLDataSet;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnSairClick(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  frmCadastroPadrao: TfrmCadastroPadrao;

implementation

uses untDM, untListagemPadrao, untFuncao;


{$R *.dfm}

procedure TfrmCadastroPadrao.btnSairClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmCadastroPadrao.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Close;
end;
end.
